home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 17 / 017.d81 / snap shot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  80 lines
  1. 0 REM *********************************
  2. 1 REM *       SNAP SHOT DEMO          *
  3. 2 REM *             BY                *
  4. 3 REM *      RONALD C. NEWBERY        *
  5. 4 REM *       RFD # 1, BOX 67         *
  6. 5 REM *     COLD SPRING NY 10516      *
  7. 6 REM * MACHINE CODE ROUTINE MEMORIZES*
  8. 7 REM *  SCREEN AND RESTORES IT--FAST *
  9. 8 REM *********************************
  10. 9 POKE53280,2:POKE53281,0:PRINT"[158]":GOSUB1000
  11. 10 PRINTCHR$(147)CHR$(14):FORT=828TO935:READZ:POKET,Z:C=C+Z:NEXT
  12. 20 IFC<>18272THENPRINT"ERROR IN DATA STATEMENTS":END
  13. 30 :
  14. 40 :
  15. 80 :
  16. 100 PRINTCHR$(147)
  17. 110 :
  18. 120 GOSUB2000 : REM   SHOW SCREEN
  19. 140 :
  20. 150 PRINT"[198][146]-1[146] [211]AVES [211]CREEN AND [195]LEARS.
  21. 160 [153]"ASCWAIT-3WAIT (null)ESTORE RIGHT$MAGE."
  22. 170 [153]"ASCWAIT-5WAITWAIT (null)UIT PROGRAM."
  23. 200 A$[178]"":[161]A$:[139]A$[178]""[167]200
  24. 210 [139]A$[178]"INPUT"[167][158]828:[153][199](147):[153]"ASCWAIT-3WAIT (null)ESTORES RIGHT$MAGE.":[137]300
  25. 220 [139]A$[178]"DIM"[167][158]882:[137]200
  26. 230 [139]A$[178]"READ"[167]63000
  27. 240 [137]200
  28. 300 [153]"(null)HE PREVIOUS SCREEN IS NOW SAVED AWAY."
  29. 305 [151]198,0:[146]198,1:[161]A$
  30. 310 [139]A$[178]"DIM"[167][158]882:[137]200
  31. 320 :
  32. 330 [137]305
  33. 828 [131] 160,0,185,0,4,153,0,192
  34. 836 [131] 185,0,216,153,240,195,185,250
  35. 844 [131] 4,153,250,192,185,250,216,153
  36. 852 [131] 234,196,185,244,5,153,244,193
  37. 860 [131] 185,244,217,153,228,197,185,238
  38. 868 [131] 6,153,238,194,185,238,218,153
  39. 876 [131] 222,198,200,208,205,96,160,0
  40. 884 [131] 185,0,192,153,0,4,185,240
  41. 892 [131] 195,153,0,216,185,250,192,153
  42. 900 [131] 250,4,185,234,196,153,250,216
  43. 908 [131] 185,244,193,153,244,5,185,228
  44. 916 [131] 197,153,244,217,185,238,194,153
  45. 924 [131] 238,6,185,222,198,153,238,218
  46. 932 [131] 200,208,205,96
  47. 1000 [153]"LOAD           (null)(null)ATN(null)CLOSE(null)LEFT$(null)(null)CLOSESTR$VAL(null)(null)"
  48. 1010 [153]"  (null)HIS ROUTINE, WHEN INCORPORATED IN"
  49. 1020 [153]"YOUR OWN PROGRAMS, WILL ALLOW YOU TO"
  50. 1030 [153]"IN EFFECT 'MEMORIZE YOUR SCREEN', AND"
  51. 1040 [153]"STORE IT IN MEMORY.  (null)OU CAN THEN CLEAR"
  52. 1050 [153]"THE SCREEN, AND DO WHAT YOU WISH, AND"
  53. 1060 [153]"WHEN YOU ARE DONE, RESTORE YOUR"
  54. 1070 [153]"ORIGINAL SCREEN, AS IT WAS."
  55. 1080 [153]"  (null)O USE IN YOUR OWN PROGRAM, A (null)(null)(null) 828"
  56. 1090 [153]"MEMORIZES THE SCREEN, AND A (null)(null)(null) 882"
  57. 1100 [153]"RESTORES IT TO IT'S ORIGINAL IMAGE."
  58. 1110 [153]"   (null)(null)VAL(null)(null)CLOSEATN(null)(null)CLOSE(null)VAL(null)CLOSE(null)(null)CLOSE(null)(null)(null)CLOSE(null)LEFT$VALCLOSESTR$VAL(null)(null).";
  59. 1120 [151]198,0:[146]198,1:[161]A$
  60. 1130 [142]
  61. 2000 [143]    PRINT DEMO SCREEN
  62. 2010 :
  63. 2020 :
  64. 2030 :
  65. 2040 [153]"LOAD"
  66. 2050 [153]"  (null)ITH THIS WONDERFUL UTILITY, YOU CAN"
  67. 2060 [153]"OPEN'TAKE A PICTURE' OF YOUR CURRENT TEXT"
  68. 2070 [153]"CLRSCREEN SO YOU CAN RECALL IT AT A LATER"
  69. 2080 [153]"TIME.  (null)HE 'PICTURE' INCLUDES THE TEXT"
  70. 2090 [153]"AS WELL AS THE CCLROLOSYSR!  ATNFTER YOU"
  71. 2100 [153]"SYSHAVE TAKEN A PICTURE OF YOUR SCREEN, YOU"
  72. 2110 [153]"PRINT#CAN PRINT WHATEVER YOU WANT ON YOUR"
  73. 2120 [153]"POKESCREEN AND STILL BE ABLE TO RECALL"
  74. 2130 [153]"PRINTYOUR CURRENT SCREEN."
  75. 2140 [153]
  76. 2150 [142]
  77. 63000 [143]   RETURN TO LS
  78. 63005 [153]"LOAD"
  79. 63010 [147]"PAYLOAD CONNECT",8
  80.